TempTable = GlobalObjManager["getNeighborIds"](GlobalObjManager)
TempN = table["getn"](TempTable)
myvar_0 = GetRunningObjectId()
myvar_1 = GetTreeParameter(0)
myvar_4 = GetObjectArrayCopy(myvar_0, 1)
myvar_5 = GetObjectArrayCopy(myvar_0, 0)
for 1=1, TempN, 1 do 
Neighbor["new"](0)["nid"] = TempTable[1]
	if (Neighbor["new"](0)["IsScheduled"](Neighbor["new"](0)) ~= 1) then 


		if (Neighbor["new"](0)["GetObjectID"](Neighbor["new"](0)) == 0) then
			if (Neighbor["new"](0)["IsPet"](Neighbor["new"](0)) ~= 1) then 


				if (0 < Neighbor["new"](0)["GetNeighborData"](Neighbor["new"](0), "house number")) then
					if (Neighbor["new"](0)["GetNeighborData"](Neighbor["new"](0), "has Computer") ~= 1) then 


				else
						if (Neighbor["new"](0)["IsTownie"](Neighbor["new"](0)) ~= 1) then 


							if (Neighbor["new"](0)["IsServiceNPC"](Neighbor["new"](0)) ~= 0) then 


								if (Neighbor["new"](0)["IsKnownByCurrentFamily"](Neighbor["new"](0)) ~= 0) then 


							else
							end
							local myvar_12 = "person age"
								if (2 < Neighbor["new"](0)["GetNeighborData"](Neighbor["new"](0), myvar_12)) then
								myvar_12 = Neighbor["new"](0)

									if (Neighbor["new"](0)["IsAlive"](myvar_12) ~= 0) then 


										if (Neighbor["new"](0)["GetNeighborData"](Neighbor["new"](0), myvar_12) == 3) then
											if (myvar_1 == 0) then
											myvar_12, {R13}, {R14} = nil
											for loopvar1, loopvar2 in myvar_4 do 
												if (loopvar2 == Neighbor["new"](0)["nid"]) then
											else
												end
											end
											myvar_12 = {}
											table["insert"](myvar_12, Neighbor["new"](0)["nid"])
										else
												if (Neighbor["new"](0)["GetNeighborData"](Neighbor["new"](0), myvar_12) ~= 3) then
													if (myvar_1 ~= 0) then
													myvar_12, Neighbor["new"](0)["nid"], loopvar2 = nil
													for loopvar1, loopvar2 in myvar_5 do 
														if (loopvar2 == Neighbor["new"](0)["nid"]) then
													else
														end
													end
													myvar_12 = {}
													table["insert"](myvar_12, Neighbor["new"](0)["nid"])
												end
											end
										end
									end
								end
							end
						end
					end
				end
			end
		end
	end
end
end
	if (table["getn"]({}) == 0) then
	SetScriptReturnValue(False)
	return 
end
local myvar_8 = 0
table["getn"]({})
SetTemp(myvar_8, {}[math["random"]()])
